home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _SETONER.PRG < prev    next >
Text File  |  1993-05-04  |  899b  |  29 lines
  1. * $Header:   C:/test/sysproc/doc/_setoner.prv   1.0   09 Jul 1992 22:40:30   Bill Ramos  $
  2. PROCEDURE _SetOnEr
  3. *-----------------------------------------------------------------------
  4. * NAME
  5. *   _SetOnEr - Set on error procedure
  6. *
  7. * DESCRIPTION
  8. *   _SetOnEr will set the ON ERROR routine to _F_Error if the global
  9. *   variable, _FXL_DEV, is not defined, or .F., otherwise in will
  10. *   clear the existing ON ERROR handler.
  11. *
  12. * GLOBAL DEPENDENCIES
  13. *   FXL_DEV,  debug flag
  14. *   
  15. *-----------------------------------------------------------------------
  16.   IF TYPE( "FXL_DEV" ) = "L" .AND. FXL_DEV
  17.     ON ERROR
  18.   ELSE
  19.     ON ERROR DO _F_Error
  20.   ENDIF
  21. RETURN
  22. *-- EOP: _SETONER.PRG
  23. *-------------------------------------------------------------------------
  24. * $Log:   C:/test/sysproc/doc/_setoner.prv  $
  25. *-------------------------------------------------------------------------
  26.  
  27.  
  28.  
  29.